home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
patch
/
ppak25_1.lha
/
PhonePak_2.5
/
rexxNoFax.ppak
< prev
next >
Wrap
Text File
|
1994-05-18
|
1KB
|
32 lines
/************************************************************************/
/* This is a simple script to demonstrate the use of an ARexx menu host.*/
/* First, open the demo system on the PhonePak Switchboard and set the */
/* ARexx menu host to "MenuPort" using the System/Set ARexx Menu Host */
/* menu item. Close the Switchboard, choosing the Save option of the */
/* "Save Changes" requester. Then, run this program (rx NoFax.ppak) and*/
/* use local access mode to start the demo system. Pressing #8 will */
/* give you an error message, thereby preventing faxes from being */
/* received. Of course, if you really wanted to disable fax reception, */
/* you would also have to turn AUTOFAXX off in LineMan. */
/************************************************************************/
addlib("libs:rexxsupport.library",0,-30,0)
menuport = openport('MenuPort')
do forever
call waitpkt('MenuPort')
packet = getpkt('MenuPort')
if packet = null() then
iterate
arg = getarg(packet,0)
parse var arg menu line mailbox entry
if menu = MESSAGEEDIT & entry = 8 then
call reply(packet,2)
else
call reply(packet,0)
end